The Trig Explorer/The Trig Explorer.iso/mac/Explorer/START.dxr/00008.ls

Text File | 1998-07-22 | 588 b | 24 lines

on mouseUp
  global FormulasOn
  if FormulasOn = 0 then
    set FormulaRect to rect(the stageLeft + 50, the stageTop + 50, the stageLeft + 400 + 50, the stageTop + 240 + 50)
    set Formula to window "Formulas"
    set the rect of Formula to FormulaRect
    set the fileName of Formula to "Formulas"
    if the machineType = 256 then
      set the windowType of Formula to 49
    else
      set the windowType of Formula to 5
    end if
    set the titleVisible of Formula to 1
    open(Formula)
    set FormulasOn to 1
  else
    closeFormula()
  end if
end

on mouseDown
  button()
end